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2.7 The Editor . As described above, FORTH has the capa¬ 
bility of accepting its input from block storage. Such stored 
input commands are the normal means for "compiling" the standard 
FORTH system as well as application programs. The FORTH user 
may put FORTH commands, or any text material, into block 
storage by means of the FORTH editor. 

In the Caltech versions of FORTH, the editor is run as 
an "application program"; i.e. it must be loaded explicitly 
before use. The constant EDIT is defined as the address of 
the block that contains the editor; thus the command EDIT LOAD 
is sufficient to obtain the editor. 

The integer BLK is used to specify the FORTH block to be 
edited; thus to edit block 35, we type 35 BLK = . 

A FORTH block is conventionally defined to have a fixed 
format with 16 lines each of 64 characters.* The 64th character 
of a line immediately precedes the first character of the next 
1 ine. 

The FORTH word T (defined in the editor) may be used to 
type any line. Thus 12 T causes the 12th line of block BLK 
to be typed. 

A line may be deleted through the D word. Typing 6_D 

will cause line 6 to be deleted. All of the lines following 

line 6 are automatically moved up one line. The last line 

(line 20 o ) either remains as before or is filled with blanks 

8 

- depending on which version of FORTH is used. 

*This format applies only to blocks which are to be used as 

text. Any block may also be used to hold binary data, in 

which case the user may choose any format. 
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New text may be entered into a block with the R (replace) 
or 1_ (insert) words. The special words " or | are needed to. 
enter the next text line into an internal buffer. Quote (^) 
enters all of the text following up to the next quote into 
the buffer. Left parenthesis (_0 does the same except that the 
text is delimited by a right parenthesis {)_). Thus 
" THIS IS A TEXT STRING" and ( THIS IS A TEXT STRING) 
both place THIS IS A TEXT STRING into the buffer. If needed, 
blanks are added to the right to make 64 characters. Note 
that, like any words, ^ and must have a blank following in 
the input. The text string to go into the buffer begins 
after this necessary blank. The delimiting character, however, 
needs no preceding blank. 

So, to replace line 3 of block 10 with SAMPLE-TEXT we 

type: 

10 BLK ^ " SAMPLE-TEXT" 3 R . 

To have quotes in the text string we would need to use the 
( - )_ method of specifying the text. 

To insert a line of text after a given line we use the I_ 
word. Thus " : NULL ;" 2 I inserts 11 : NULL ,•" after line 2. 

The new line becomes line 3, and the former lines 3 to 17g 
become lines 4 to 20g. The old line 20 is lost. 

After a T or a D operation the line that was typed or 
deleted is automatically copied into the buffer, ready for a 
possible R or I. Thus the commands 3D 2 I leave the text 
unaltered. 

After an editing session the user must be careful to have 
the updated text actually rewritten into block storage. The 
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last two blocks edited will still be in the block buffers in 
main memory until the FLUSH word is executed. DISCARD will 
have the same effect; but in this case the editor vocabulary 
will be discarded in anticipation of loading a new application 
vocabulary. 

The standard vocabulary contains two words to type text 
blocks. LIST will type out any text block with the line 
number at the right of each line; e.g. 5 LIST to list block 5. 
SHOW lists a sequence of block with a number to indicate each 
block and line; thus 5 7 SHOW lists blocks 5 through 7. 

The word COPY copies one block into another. Either 
text or binary data is allowed. Thus 14 17 COPY copies block 
14 into 17. The old block is unchanged. The buffers must be 
flushed after the last COPY in a sequence. 
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2.8 How to Operate a FORTH System . There is some natural 
variance between implementations of FORTH in the details of 
how one interacts with the system. This Section will deal 
with how a user can interact with a typical FORTH system. A 
description of how to initiate the system will be followed by 
a sample dialog. 

Loading programs into minicomputers is often a tricky 
process, not obvious to new users. The more basic machines 
have no permanently stored instructions; thus when the computer 
is first started up it is necessary to enter the first program 
through the console switches. Manual program entry in this 
way is tedious and unreliable. In practice one will normally 
enter only a very brief program called a "bootstrap loader". 

This program may be 10 - 15 instructions long; its purpose is 
to read in another program from some mechanical device - paper 
tape or disk, for example. The bootstrap loader requires its 
input to have a very simple format. Usually the format is 
one word for address followed by a word of data. 

The bootstrap format requires two words in the input medium 
for every word of program; also there is normally no error 
checking. For these reasons it is conventional to use the boot¬ 
strap loader only to load a program called "the binary loader 
("absolute loader" or "relocating loader", sometimes). The 
binary loader, in turn, will load useful programs like FORTH. 

The format required by the binary loader is much more efficient, 
typically only one address is required for a block of some 
hundred words. In addition there is usually a checksum test 
that will detect most errors in transmission of data. 
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In summary, to run a given program, one first loads a boot¬ 
strap loader, then uses the bootstrap to load the binary loader, 
and finally the binary loader to load the program of interest. 

This is the case for the most primitive minicomputers. 

In the case of most of the Caltech computers, there is a 
permanently stored program (in read-only memory) that contains 
the bootstrap loader. Thus all that needs to be done is to 
start the computer running at the address of the bootstrap 
loader; the full binary loader will then be read in from paper 
tape or disk. For the purposes of FORTH, the binary loader is 
often combined with FORTH itself so that immediately after the 
loader is loaded, the FORTH system is loaded automatically. 

Only the most fundamental part of the FORTH system is loaded 
by the process described above; this is the FORTH "object program . 
The object program has a very limited vocabulary, generally only 
large enough to allow itself to grow through CODE and i_ defini¬ 
tions. The rest of the "standard" FORTH system resides as text 
in block storage. To compile this into the dictionary one types 
FORTH LOAD . In a few seconds the dictionary expands to several 
hundred words including those described previously in Section 2. 
Applications programs such as interferometer control are compiled 
by further LOAD commands. 

The following pages present a sample dialog between a 
user and the PDP-11 FORTH. The typing produced by FORTH is 
underlined. Text appearing between parentheses "( ...)" is 
comment and is ignored by FORTH. 
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R FORTH 


fr.RTH 19 JUL 7-4 
HE LLO ? 

ETiRTiTLORD FftRTTL 
FAAORTH LORD _OK. 
123 £1L 


123_ 



XXV2Z XXVZZ ? 

123 234~ffg 
• 

■ 123 

123^3 . 12 ^ 

THIS LINE HARRIS RLL WRONTTG' 

< THIS IS R COMMENT. > _0£ 

< STOCK MAN I F’ULSfi TIONS > OK 

1 2 DROP £],< *”“* 

. 1 

7" ? 

i TTwrp . 1 

• 2 ~ 

1 2 OVER . 1 


U 


Command to RT-11 (run FORTH) 

(Underlining indicates FORTH's output.) 
FORTH's initial message 

•'FIRTH" is not recognized, note "?" 

Same mistake, corrected using "rubout" 

Basic system loaded, now put no. on stack 
Type the current stack entiy 
Sane thing on one line. 

If the stack is empty, you get error message 
Unrecognized word is an error,too. 

Put two numbers on the stack 
'type the top one (it is popped) 

Then type the second, stack now empty. 
Correct a typing error with "rubout" 

Delete a whole line with CTRL-U ( A U) 

Comment ignored. 

"OK" is the standard response to 

a successfully executed input line 
if no typing was specified. 


L 

L 


1 Pup™, i 
• t. 

< CONSTANTS RND INTEGERS) OK 
4 CONSTANT FOUR OK 
FOUR . 4. 

36 INTEGER L ££ 

L . 15720 

L 8 . 3fl 
L ? 3£, 

FOUR L = L ? 4 
L C* L C- + L =1 ? 10 
4 L += L ? 

L l+= L ? 15. 

OSET L? L? ? 

6SET L ? a. 

ARITHMETIC) &£ 

123 234 + . 35? 

4 4 + . 

DECIMAL 4 4 

5 5 + . 10 

5 DIJP * 4 - 
123 234 456 
232 10 MOD 
: ADD2 2 + 

CODE ADD4 S 
3 ADD2 . 5 

2 ADD4 . <T 
: PSQUARES* 5 O DO I 
PSQUARES 0 O 

4 - 1 . 

2-2. 
i_liL 


+ . 8^ 

• Si 

*/ . G 

iL 

) 4 # 


ADD, NEXT J 


I I * 


"FOUR" has the value 4< 

Typing "L" will put the address of 
the integer on the stack (15720„) 
"6" retrieves the value of the integer 
*?" combines "4S" and "." 

"=" stores a value in an integer 
Long-winded arithmetic example 


A mistake 


addition of integers 
default is base 8, octal 
try decimal, base 10 


123*234/456 if you will 

A colon definition to add two. 

' OK Code definition to add four. 

(They work.) 

CR LOOP ; Example of DO-LOOPs. 

The first output line would have 
looked better had it started on 
a new line. 

^ ^0 redefine PSQUARES in terms of 

itself, adding "CH" at beginning. 


: PSQUARES CR PSQUARES ; OK 
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This is the effect 


PSQUARES 



4 16 


: TEST 0 < IF f NEGATIVE!3 ELSE C 
1 TEST POSITIVE* 

e test Posit j v_£L 

-1 TEST NEGATIVE ?■ 

12345h TEST NEGATI VE_i 
12345 TEST POEftlkT 
: EX3 CR 5 3 DO 3 1 DO 1 -1 DO I 
EX3 



■ F = 
-1 

EX3 

1 


0 

1 



C. 

2 

—nr~ 

2 

3 

-T— 1 

i 

4 

T” 

1 

4 _ 

-1 

2 

A - 

~T~ 

2 

4 


POSITIVE! J THEN TVPE ; OK 

Example of IF-ELSE-THEN 


(This is a 16-bit machine, the number 
has overflowed.) 

J . K . CR LOOP LOOP LOOP ; OK 


Example from text showing use of 
I, J, K. 


For a neater output format, we 
can set F, the output field width. 


< EDITOR EXAMPLES') £K 
OCTAL Q}L 
EIDIT^U 
EDIT . 3^ 

EDIT LIST 

1 < TEXT 


J se base 8 by conventien. 


6 
? 

10 
11 
12 
12 

14 

15 
IS 

i ^ 
120 

EDIT 


EDIT is a constant 
hist the editor block. 

EDITOR? 

DISCARD REMEMBER DISCARD : DISCARD FLUSH DISCARD 
BASE & OCTAL 100 ARRAV TEXT 

BLftNKIT SPACES 0 OVER = DUP 2+ 76 MOVE • 

STRING TEXT BLANKIT DELIM = WORD HERE COUNT 
11 42 STRING ; 

STRING ; 

DUP LINE TEXT 100 MOVE ; 

CR HOLD LINE SPACES? TVPE ; 

LINE TEXT SWAP 1O0 MOVE UPDATE ■ 

HOLD DUP 20 < IF 20 SWAP DO 1 1+ 

MOVE LOOP ELSE DROP THEN 20 LINE 


TEXT SWAP MOVE 


< 51 

HOLD 

T 

R 

D 


LINE DUP 
BLANK IT 


100 - 100 
UPDATE > 


I 

V BLK 
EMPTV 
Ei A S E = 
LOAD Qj£ 


DO 


DUP 1? 

& LIST ; 

DUP BLOCK DROP 
: RESET RADIX) 


I LINE DUP 100 + 100 MOVE -1 +LOOP 1 + R 


PREV 2+ = ; 

S END OF EDITOR 
Load this 


501 


LIST 
1 i S 


block. 

We will edit block 501; this is the 
"before" picture. 
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10 
11 
12 

13 

14 

15 

16 
17 
20 

591 BLK = OK BLK determines which block is to be 

1 T edited. !fype first line. 

; S 

" INSERT" 0 I OK^ Insert after line 0, before line 1. 

1 T 

INSERT 

2 T 
; S 

" REPLACE" 2 R 2 T Beplace line 2, then type. 

RFPI RCE 

1 D 1 T Delete line 1, type new line 1. 

REPLRCE 

ITT 

^TlNE 20" 20 R OK 
2D T 
LINE 20 
1 D 1 T 


in 

LINE 20 

2F~T 


L delete moves line 20 to line 17 


" < THIS IS R DEMONSTRATION OF THE EDITOR)" 1 R OK 
" : MESSAGE C WRITE R MESSAGE ON THE TYPEWRITER. TtYPE ; " 2 R OK 


" ; S" 3 R 

» DISCARD" 1 I OK "DISCARD" will erase previous 

“ REMEMBER DISCtfEft)" 2 I OK application program, "REMEMBER 

FLUSH OK DISCARD" permits this program to be 

501 LIST erased later. 

1 < THIS IS R DEMONSTRATION OF THE EDITOR) 

2 DISCARD 

3 REMEMBER DISCARD 

4 : MESSAGE [ WRITE A MESSAGE ON THE TYPEWRITER. 3 TYPE ; 

5 ; S 

6 
7 

10 
11 
12 
12 
14 
I 15 


16 

17 

20 


501 LORD £|K Load the sample program. 

MESSAGE WRITE A MESSAGE ON THE TYPEWRITER,. 

DISCARD OK 

GOOD BY Return to RT-11. 
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